K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

26 tháng 12 2022

Kết quả là tính giá trị của x và y

21 tháng 12 2021

Chọn B

17 tháng 12 2021

tối đa là N lần

Bài 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 372 do 

 if i mod 3=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

9 tháng 5 2018

B1 : j : =0

      T :=105

While T>= 20 do begin j := j + 5 T :=T - j ; end;

Write \((T)\); write\((j)\)

Bài thuật toán kiểu j vậy??

Mk thấy đây là môn Tin học mà

Chúc bạn học tốt~

10 tháng 5 2018

Giải chi tiết hộ mik với Huỳnh Quang Sang